home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / ms_dos / data / awkscrpt / atari.awk < prev    next >
Text File  |  1994-01-30  |  365b  |  22 lines
  1. BEGIN {
  2.     print "\x1b[2J年賀状お年玉くじ当たり判定プログラム"
  3.     while((getline<"atari.dat")>0) d[++i]=$0
  4.     close("atari.dat")
  5.     nd=i
  6.     for(i=1;i<=nd;i++) {
  7.         print d[i]
  8.     }
  9.     printf("番号の末尾 >")
  10. }
  11.  
  12. {
  13.     r=$0 "$"
  14.     print "\x1b[2J\n"
  15.     for(i=1;i<=nd;i++) {
  16.         if(d[i]~r) {
  17.             print "\x1b[7m" d[i] "\x1b[m"
  18.         } else print d[i]
  19.     }
  20.     printf("番号の末尾 >")
  21. }
  22.